How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/SHARED.DIR/01962_Script_Egypt MAP

Text File | 1995-09-13 | 8KB | 317 lines

on EMapRollover
  repeat while rollover(6)
    EgyptCursor
    if the mouseV > 285 and the mouseV < 345 then
      if the mouseH > 61 and the MouseH < 124 then
        set the castnum of sprite 6 = the number of cast "PE080200.PIC"
        updatestage
        if (the mousedown) then
          puppetsprite 2, false
          puppetsprite 16, false
          go "Map1"
          abort
        end if
      else
        if the mouseH > 124 and the MouseH < 188 then
          set the castnum of sprite 6 = the number of cast "PE080300.PIC"
          updatestage
          if (the mousedown) then
            puppetsprite 2, false
            puppetsprite 16, false
            go "map2"
            abort
          end if
        end if
      end if
    else
      if the mouseV > 345 and the mouseV < 404 then
        if the mouseH > 61 and the MouseH < 124 then
          set the castnum of sprite 6 = the number of cast "PE080400.PIC"
          updatestage
          if (the mousedown) then
            puppetsprite 2, false
            puppetsprite 16, false
            go "map3"
            abort
          end if
        else
          if the mouseH > 124 and the MouseH < 188 then
            set the castnum of sprite 6 = the number of cast "PE080500.PIC"
            updatestage
            if (the mousedown) then
              puppetsprite 2, false
              puppetsprite 16, false
              go "map4"
              abort
            end if
          end if
        end if
      end if
    end if
  end repeat
  if rollover(15) then
    HandCursor
  else
    if rollover(16) then
      ArrowCursor
    else
      ArrowCursor
    end if
  end if
end

on EMap1Rollover
  repeat while rollover(6)
    EgyptCursor
    if the mouseV > 285 and the mouseV < 345 then
      if the mouseH > 61 and the MouseH < 124 then
        set the castnum of sprite 6 = the number of cast "PE080200.PIC"
        updatestage
        if (the mousedown) then
          puppetsprite 2, false
          puppetsprite 16, false
          go "Map1"
          abort
        end if
      else
        if the mouseH > 124 and the MouseH < 188 then
          set the castnum of sprite 6 = the number of cast "PE080300.PIC"
          updatestage
          if (the mousedown) then
            puppetsprite 2, false
            puppetsprite 16, false
            go "map2"
            abort
          end if
        end if
      end if
    else
      if the mouseV > 345 and the mouseV < 404 then
        if the mouseH > 61 and the MouseH < 124 then
          set the castnum of sprite 6 = the number of cast "PE080400.PIC"
          updatestage
          if (the mousedown) then
            puppetsprite 2, false
            puppetsprite 16, false
            go "map3"
            abort
          end if
        else
          if the mouseH > 124 and the MouseH < 188 then
            set the castnum of sprite 6 = the number of cast "PE080500.PIC"
            updatestage
            if (the mousedown) then
              puppetsprite 2, false
              puppetsprite 16, false
              go "map4"
              abort
            end if
          end if
        end if
      end if
    end if
  end repeat
  if rollover(8) then
    EgyptCursor
  else
    if rollover(9) then
      EgyptCursor
    else
      if rollover(11) then
        EgyptCursor
      else
        if rollover(15) then
          HandCursor
        else
          if rollover(16) then
            ArrowCursor
          else
            ArrowCursor
          end if
        end if
      end if
    end if
  end if
end


on EMap3Rollover
  repeat while rollover(6)
    EgyptCursor
    if the mouseV > 285 and the mouseV < 345 then
      if the mouseH > 61 and the MouseH < 124 then
        set the castnum of sprite 6 = the number of cast "PE080200.PIC"
        updatestage
        if (the mousedown) then
          puppetsprite 2, false
          puppetsprite 16, false
          go "Map1"
          abort
        end if
      else
        if the mouseH > 124 and the MouseH < 188 then
          set the castnum of sprite 6 = the number of cast "PE080300.PIC"
          updatestage
          if (the mousedown) then
            puppetsprite 2, false
            puppetsprite 16, false
            go "map2"
            abort
          end if
        end if
      end if
    else
      if the mouseV > 345 and the mouseV < 404 then
        if the mouseH > 61 and the MouseH < 124 then
          set the castnum of sprite 6 = the number of cast "PE080400.PIC"
          updatestage
          if (the mousedown) then
            puppetsprite 2, false
            puppetsprite 16, false
            go "map3"
            abort
          end if
        else
          if the mouseH > 124 and the MouseH < 188 then
            set the castnum of sprite 6 = the number of cast "PE080500.PIC"
            updatestage
            if (the mousedown) then
              puppetsprite 16, false
              puppetsprite 2, false
              go "map4"
              abort
            end if
          end if
        end if
      end if
    end if
  end repeat
  if rollover(8) then
    EgyptCursor
  else
    if rollover(9) then
      EgyptCursor
    else
      if rollover(10) then
        EgyptCursor
      else
        if rollover(11) then
          EgyptCursor
        else
          if rollover(15) then
            HandCursor
          else
            if rollover(16) then
              ArrowCursor
            else
              ArrowCursor
            end if
          end if
        end if
      end if
    end if
  end if
end




on ResetEMaps
  set the castnum of sprite 6 = the number of cast "PE080200.PIC"
  go "MapX"
end

on resetMapText
  set the locH of sprite 16 = 750
  updatestage
  puppetsprite 16, false
end


on WeedWack whichsprite, whichCast, whichsound
  resetMapText
  ArrowCursor
  set gSprite = whichsprite
  set gCast1 = whichCast
  set gCast2 = gCast1 + 1
  set gCast3 = gCast1 + 2
  set the castNum of sprite gSprite = gCast1
  set Count = 0
  repeat while count < 3 and (the MouseUp)
    puppetsound whichsound
    set the castNum of sprite gSprite = gCast2
    updatestage
    wait .2
    set the castNum of sprite gSprite = gCast3
    updatestage
    wait .5
    set the castNum of sprite gSprite = gCast2
    updatestage
    wait .2
    set the castNum of sprite gSprite = gCast1
    updatestage
    Puppetsound 0
    wait .5
    if the mousedown then
      exit repeat
    end if
    set count = count + 1
  end repeat
  set the castnum of sprite whichsprite = gCast1
  updatestage
  Puppetsound 0
end

on Arrow whichsprite, whichsound
  resetMapText
  set startH = the locH of sprite whichsprite
  set MoveForward = startH
  puppetsound whichsound
  repeat while the locH of sprite whichsprite < 625
    set the locH of sprite whichsprite = (MoveForward + 4)
    set MoveForward = the LocH of sprite whichsprite
    updatestage
  end repeat
  set the locH of sprite whichsprite = StartH
  updatestage
  wait 1
end

on ArrowThrow whichsprite, whichCast, whichsound, HowManyCast, whichCast2, whichsprite2, LocationH
  resetMapText
  ArrowCursor
  puppetsprite whichsprite, true
  set gSprite = whichsprite
  set gCast = whichCast
  --set gEndCast = whichCast + (HowManyCast - 1)
  set the castNum of sprite gSprite = gCast
  set count = 0
  set the castNum of sprite gSprite = gCast +1
  updatestage
  wait .3
  repeat while count < HowManyCast and (the MouseUp)
    set theCast = the castNum of sprite gSprite
    set the castNum of sprite gSprite = theCast + 1
    updatestage
    wait .02
    set count = count + 1
  end repeat
  puppetsound whichsound
  set the locH of sprite whichsprite2 = LocationH
  updatestage
  set startH = the locH of sprite whichsprite2
  set MoveForward = startH
  repeat while the locH of sprite whichsprite2 < 640
    set the locH of sprite whichsprite2 = (MoveForward + 4)
    set MoveForward = the LocH of sprite whichsprite2
    updatestage
  end repeat
  wait 1
  set the locH of sprite whichsprite2 = 660
  set the castNum of sprite gSprite = gCast
  updatestage
  puppetsprite whichsprite, false
end